home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / asm / interupt.mac < prev    next >
Encoding:
Text File  |  1984-08-27  |  4.0 KB  |  213 lines
  1. ;MACROS for items that replace BIOS calls
  2. ;
  3. ;    Prolog Segname
  4. ;        start of code should be labeled
  5. ;        ENTRY:
  6. ;
  7. ;    Epilog    IntNo,Pointr,SegName
  8. ;        IntNo is interrupt number
  9. ;        Pointr is name of data area DD
  10. ;
  11. ;    Finish    SegName,StackSize
  12. ;  the variable  zzarg gets set to the first word (two chars) entered
  13. ;    on the command line
  14. ;
  15. ;    Finish has first label of CONFIG:
  16. ;    if HIMSG exists it is printed (put after Epilog)
  17. ;    eg    jmp CONFIG
  18. ;       HIMSG db 'hello$'
  19.  
  20.  
  21. ; Prolog SegName
  22. ;    This pushes a bit and then runs to the rest
  23. ;    name the segment here
  24.  
  25. Prolog    MACRO    SegName
  26. pBase    equ    00h    ;pBase of memory (seg)
  27. zbufr    equ    5Dh
  28.  
  29.  
  30.  
  31. DGROUP    GROUP    SegName,ZzUseStk
  32.  
  33. SegName    Segment    para
  34.  
  35. Moveit    PROC    FAR
  36.    ASSUME    CS:SegName
  37.  
  38. ;Set up the stack so a RET instruction
  39. ;    will jump to the
  40. ;    beginning of program segment
  41.     push    ds    ;Prog segment
  42.     xor    ax,ax
  43.     push    ax    ;Offset
  44.  
  45.     jmp    DoTheRest
  46.  
  47.     db    '1982 MSZachmann'
  48. MoveIt    endp
  49.     ENDM
  50. ;    Epliog    IntNo,Pointr
  51. ;
  52. ;  This does the work of checking 
  53. ; that no other one has been loaded.
  54. ; Just exits if other loaded. IntNo
  55. ; is the interrupt number
  56. ; Pointer is a pointer to where the 
  57. ; old address should be stored.
  58.  
  59.  
  60. Epilog    MACRO    IntNo,Pointr,SegName
  61. EndEntry label    near
  62.  
  63. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  64. ;
  65. ;    Temporary stuff
  66. ;
  67. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  68.  
  69.  
  70. Initial    proc    near
  71. DoTheRest    LABEL    NEAR
  72.  
  73. ;Check to see if already loaded.
  74. ; if so, exit
  75. ;
  76.     mov    BX,zbufr
  77.     mov    AX,[BX]
  78.     mov    CS:zzarg,AX
  79.     push    DS
  80.     mov    AX,pBase
  81.     mov    DS,AX
  82.     mov    BX,4*IntNo
  83.     LES    SI,dword ptr [BX]
  84. ;now have start address of code
  85.     mov    SI,offset ENTRY    ;start here
  86.     mov    DI,SI
  87.     mov    AX,CS
  88.     mov    DS,AX    ; all set for compare
  89.     CLD    ;forward
  90.     mov    CX,010    ;should suffice
  91.     REPE    CMPSW
  92.     pop    DS
  93. ; now set status byte to 0FFFh
  94.     mov    AX,0FFFFh
  95.     push    AX
  96.     jne    short    Nxt1
  97.     jmp    Config
  98.  
  99.  
  100. ;Modify the INT 20H instruction at DS:1
  101. ;    Make it an INT 27h
  102. Nxt1:    mov    BX,1
  103.     mov    BYTE PTR [BX],27h
  104.  
  105. ;relocate down a page using CS:->DS:
  106. ;
  107.     mov    AX,DS
  108.     mov    ES,AX    ;set ES to page lower
  109.     mov    AX,CS
  110.     mov    DS,AX    ;set DS to here
  111.     mov    SI,offset ENTRY
  112.     mov    DI,SI    ;both same
  113.     mov    CX,offset EndEntry-offset ENTRY
  114.     shr    CX,1    ;div by 2 for wds
  115.     inc    CX    ;for luck
  116. lz1:    rep movsw
  117.     and    CX,CX
  118.     jnz    lz1
  119.  
  120. ;Set DS:BX to point to int vector IntNo
  121. ;        (Pointr i/o )
  122.     MOV    AX,pBase
  123.     MOV    DS,AX
  124.     MOV    BX,4*IntNo
  125.  
  126.  
  127.     push    ES    ;save new page
  128.  
  129. ;Set ES:DI to old vector 10h
  130.     LES    DI,DWORD PTR [BX]
  131.  
  132. ;Reset the vector to Entry point
  133.     MOV    WORD PTR [BX],offset ENTRY
  134.     pop    CX    ;new page number
  135.     MOV    WORD PTR [BX+2],CX
  136.  
  137. ;Now put the old vector address
  138. ;    into the call pointer at
  139. ;    DS:Pointr
  140.    ASSUME   DS:&SegName
  141. ;actually DS is SegName-100h
  142.     MOV    DS,CX
  143.     MOV    Pointr,DI
  144.     MOV    Pointr+2,ES
  145. ;set status to NEW 
  146.     pop    AX    ;get status back
  147.     xor    AX,AX
  148.     push    AX    ;for later
  149. Initial    endp
  150.  
  151.     ENDM
  152.  
  153. ;    Finish
  154. ; exits
  155. ;    takes segment name and stack size
  156.  
  157. Finish    MACRO    SegName,SSizez
  158.  
  159.  
  160. ;Set up DX to the program size, note
  161. ;    that CS is 100h larger than
  162. ;    program prefix segment
  163. ; ! This is the lazy way, and
  164. ;    assumes PC-DOS stays consistent.
  165.  
  166. Nconfig    proc    far
  167. CONFIG    label    near
  168.     mov    AX,CS
  169.     mov    DS,AX    ;for print screen
  170.     IFDEF    HIMSG
  171.     mov    AH,9    ;print string
  172.     mov    DX,offset CLearstr
  173.     int    21h    ;DOS
  174.     mov    DX,offset HIMSG
  175.     int    21h
  176.     ENDIF
  177.  
  178.     pop    AX    ;get status
  179.     and    AX,AX    ;if zero then new
  180.     jz    CONF3
  181.     mov    DX,offset AlThere
  182.     mov    AH,9
  183.     int    21h    ;print
  184. CONF3:    MOV    DX,offset endENTRY
  185.     RET    ;Exit from the system
  186.         ;By doing an INT 27h
  187. ALThere    db    '*** This program was already loaded. ***',13,10,'$'
  188. zzarg    dw    ?    ;will contain first word at 80h
  189. Clearstr db    13
  190.     db    27 dup(10)
  191.     db    '$'
  192. Nconfig    endp
  193.  
  194.  
  195.  
  196. SegName    ends
  197.  
  198. ; ensure that stack gets loaded highest in memory
  199. ; by naming it large (ZZ...)
  200.  
  201. ZzUSERST    segment    STACK
  202.     dw    SSizez dup (?)
  203. ZzUSERST    ENDS
  204.  
  205.  
  206.     ENDM
  207.  
  208. RST    ENDS
  209.  
  210.  
  211.     ENDM
  212.  
  213.